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| 
mM MM TTTTTTTTTT HH HH HH HH AAAAAA SSSSSSSS III] NN NN 
RM MM TTTTTTTTTT HH HH HH HH AAAAAA SSSSSSSS HII NN NN 
MMMM | MMMM TT HH HH HH HH AA AA SS II NN NN 
MMMM = OMMMM TT HH HH HH HH AA AA SS II NN NN 
Mx MM OMM TT HH HH HH HH AA AA SS II NNNN NN 
MM 6M OMM TT HH HH HH HH AA AA SS II NNNN NN 
mM Bupa TT HHHHHHHHHH HHHHHHHHHH «AA AA SSSSSS II NN NN NN 
aie mana TT HHHHHHHHHH HHHHHHHHHH «AA AA SSSSSS II NN NN NN 
My fal TT HH HH HH HH AAAAAAAAAA $s I] NN NNNN 
mM ale TT HH HH HH HH AAAAAAAAAA Ss II NN NNNN 
MM MM TT HH HH HH HH AA AA Ss II NN NN pina 
fw fala TT HH HH HH HH AA AA Ss II NN NN roe: 
lad MM TT HH HH HH HH AA AA SSSSSSSS IIII11 NN NN mies 
iba aM TT HH HH HH HH AA AA SSSSSSSS eeeee NN NN < | 
| 
LL IIIII SSSSSSSS 
LL eeeeel SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL II $s 
LL II SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] Ss 
LLLLLLLLLL III] SSSSSSSS 
LLELLLLLLLL HII] SSSSSSSS 
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(2) 54 HISTORY ; Detailed Current Edit uistery 

(3) 4 DECLARATIONS ; Declarative Part of Module 
(4) 104 MTHSHASIN = Standard H Floating Arcsine 

(5) 1 MTHSHASIN_RB = Special HASIN routine 

(8) ¢ MTHSHASIND = Standard H Floating Arcsine 
(7) MTHSHASIND_R8 = Special HASIND routine 
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1-004 . Breer obs 91:30:83 FATANTS eaecarMadscyemar:1 29° 
~TITLE MTHSHASIN 5 wunate ee Pe Hie Arcsine routine 
IDENT /1-004/ > File: NATHHASIN. MAR RNH1004 


MARARARAARAAARALAAAAAALALEAAA EARL EASELS ESA A SERS RAR SESSA AER E SERS EERE ESSE 


Seth hg (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS rue wuoen A License AND MAY BE USED AND gorse 


® 
** ® 
-® x 
** « 
-* * 
*® ® 
:* ® 
:e H CH LICE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR VAN HER * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
:* ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* a 
*® oT 
** * 
** ae 
*® ® 
:* ® 
:® © 
** ® 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR _ RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 


IBIL 
H IS N 


PARRA RARAASARSRALALALASAESALESESELESELASES SESE SERS SEER REARS RRR S ESLER RRS R RS AAS SE 


SOOoCoooooooooooooooooooooooo 


COOoOoCoCoOoOoooooooosSsooooooo 
pee ew lw le ola lala o lolol ole lololololololol eo! 


¢ FACILITY: MATH LIBRARY 
ABSTRACT: 
MTHSHASIN is a function which returns the H floating point arcsine 
; in radians of its H floating point argument. The call is standard call- 
; by-reference. 
; MTHSHASIND is a function which returns the H floating point arcsine 
he degrees of its H floating point argument. The call is standard call- 
; by-reference. 


; VERSION: 1 

; HISTORY: 

; AUTHOR: 

John A. Wheeler, 20-Oct-1979: Version 1 


; MODIFIED BY: 


MRO ODONAUES WIN OC OD NOAUE WIN $9 ODNAUE WIN 0 OD NOAU EW OWOONOUE wn 


; 
; 
: 
: 
. 
. 
. 
: 
: 
: 
. 
. 
: 
: 
: 
. 
: 
. 
. 
. 
: 
: 
° 
Py 
. 
: 
° 
4 
; 
‘ 
Py 
e 
¢ 
Py 
° 
6 
r 
: 
4 
Py 
pd 
Py 
° 
. 
: 
Py 
® 
‘ 
‘ 
P 
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MTH 
1- 


Wess tafled current Fat HOE tory EER 1 8Be 1i32:33 YATARTE. cae 
-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of MTHSHASIN 


1 = 
! Bi - Added degree entry points. RNH 29-MAR-1981 
1-004 = Elim nated symbolic short Literals. RNH 15-0Oct- 


j 


Change shared external references to G* RNH 25-Se 


o V04-00 
CJMTHHASIN.MAR; 1 


Adapted from MTH$GASIN version 1-002. JAW 20-Oct-1979 


:;*" 


Page 
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OOOCOCCOCOCOOOOCOCOOOCOOOOOOOOOoOoO 
OQOOCoCoooooooooooooooooooooo 
COOCOOCCoOCOCOCOCOOCOCOOoOOOOOOOOOOOOCOOOem 
ee ee we eel el al al olol ol elo ololololelololeolelololo!) 


16-SEP-1984 AX/VMS Macro V04-00 


MTHRTL.SRCJMTHHASIN.MAR; 1 


~SBTTL DECLARATIONS 


3 Declarative Part of Module 


INCLUDE FILES: OTSPARAMS .MAR 


EXTERNAL SYMBOLS: 


EQUATED SYMBOLS: 


MACROS: none 
PSECT DECLARATIONS: 
-PSECT _MTHSCODE 


; OWN STORAGE: none 


; CONSTANTS: 


_PI_OVER_2: 
.CONG *X921F4001, 
-LONG “*X898C8469, 


H_90: 


DOOSOO0O0 0000 OO OW 000000090009 09 0909 INI NI NII NINININNIOOOOOAO + 
MO ODNAU EWN O OONOAU EWN 0 ODNOU SW" OVODONOUS 


SooCooooooooooa 


Snooneaooses 
SOWBOOwWmoooe 


0 
0 
0 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 


os 


-LONG “%X68004007, 
-LONG “XO, 


Force error for undefineds 
Square root routine 
Arctangent routine 
Arctangent routine 
Math signal routine 


GNAC 
MTHSK_INVARGMAT 


PIC,SHR,LONG, EXE ,NOWRT 
; Program section for math routines 


1.5707963267948966192313216916397514420 
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1-004 MTHSHASIN = Standard H Floating Arcsine 6=-SEP-1984 11:24:33 (CMTHRTL.SRCJMTHHASIN.MAR; 1 
! : -SBTTL MTHSHASIN = Standard H Floating Arcsine 
: 5 p++ 
8 i 8 : FUNCTIONAL DESCRIPTION: 
8 0 119 ; HASIN =H floating point arcsine function 
0 0 116 : HASIN(X) is computed as: 
020 114; If X = 0, then HASIN(X) = 0. 
8° 115 ; If X = 1, then HASIN(X) = PI/2. 
0 116; If X = ={, then HASIN(X) = =PI/2, 
00 117 ; If 0 < iki < 1, then HASIN(X) = ATAN(X/SQRT(1-X*#2)). 
8 133 : If 1 < iXt, error. 
09 0 0 ; CALLING SEQUENCE: 
0020 1 : ; hasin.wh.v = MTHSHASIN(x.rh.r) 
0020 123; 
0050138 esi 
0090 : ; CALL MTHSHASIN(hasin.wh.r, x.rh.r) 
6059 128 ; Because an H-floating result cannot be expressed in 64 bits, it is 
0020 129 ; returned as the first argument, with the input parameter displaced 
0020 130; to the second argument, in accordance with the Procedure Calling 
+ . 13) 3 Standard. 
99 0 138 t INPUT PARAMETERS: 
00000004 9020 135 ° LONG = 4 : Define Longword multiplier 
00000008 88 136 x = 2 * LONG ; Contents of x is the argument 
0090 138 > IMPLICIT INPUTS: none 
3098 140 : OUTPUT PARAMETERS: 
00000004 0090 146 . hasin = 1 * LONG ; hasin is the result 
Be 0 bt: : VALUE: H floating arcsine of the argument 
00 3 146 > IMPLICIT OUTPUTS: none 
09 ° 148 > COMPLETION CODES: none 
09 6 130 > SIDE EFFECTS: 
09 0 136 > Signals: MTHS$_INVARGMAT if {Xi > 1 with reserved operand in RO/R3 
0 8 155 ; (copied to the signal mechanism vector CHFSL_MCH_RO/R1 by LIBSSIGNAL). 
00 154 ; Associated message is: “INVALID ARGUMENT’. Résulf is reserved gperan 
8 0 13? ; 70.0 unless a user supplied (or any) error handler changes CHFSL_MCH_RO/R1. 
8 189 : NOTE: This procedure disables floating point underflow, enables integer 
0 138 3; overflow. 
bp 159 ; 
0 160 ;--- 


MTHSHASIN HE 
1-004 MTHSH 

GIFC 

6D O0000000'GF 9E 

50 608 BC Fore 

04 BC 50 7DFD 

04 

——___—_—_—____—_— 


int Arcsine ro 
andard H Float 


MTHSFLAG_JACKET 
MOVAB 


MOVH ax (AP) 


G*MTHSSJACKET_HND, (FP) 


RO 
@SBB = MTHSHASIN_R8 
MOVO 


RO, @hasin(AP) 


3 


«ENTRY MTHSHASIN, “M<IV, R2, R3, 


B11 
The Arcotne "OrgEb = $8e ° 


3 yaiyes Macro V04-00 Page 
: MTHRTL.SRCJMTHHASIN.MAR; 1 


R4, RS, R6, R7, RB> 

Standard call-by-reference entry 
Disable DV (and FU), enable IV 

Flag that this is a jacket procedure in 


set handler address to jacket 
handler 


case of an error in routine 

If an error, convert signal to user PC 
and peetane 
RO/R3 = X = @x(AP) 

Call special HASIN routine 
Store result in first argument 
Return to caller 


ATH! 
2 
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1-004 ATHSHASIN.RE = Special HASIN routine o7SEb =] 984 04:32:38 MTHRTL.S REIN THHASIN.MAR; 1 ™ (8) 2-0( 
8 6 176 ~SBTTL MTHSHASIN_RB = Special HASIN routine 
0 é 158 3 Special HASIN = used by the standard routine and direct JSB call. 
6 180 ; CALLING SEQUENCE: 
036 181 ; save anything needed in RO:R8 
8 at. ¢ : V R ; Input in RO/R3 
6 183 ; JSB8 MTHSHAS! 
036 184 : return with sete A RO/R3 
0 ? ! 5 Py | 
09 6 1 5 MTHSHASIN_RB:: ; Special HASIN routine 
50 «65 i 188 TSTw RO 3 Com are X with 0 
39 13 00 189 BEQL RETURN ; If X = 0, return HASIN(O) = 0 
5 aS | 
003A 19¢ :0< Ix! | 000¢ 
003A 1935 ; SF 8 
OO3A 3=: 194 1DEé 
7E 50 70FD O0SA 195 MOVH RO, -(SP) : stack = RO/R3 = XxX 
50 8000 8F AA 0036 196 BICW #*48000, RO > RO/R3 = |X! 000¢ 
08 50 71FD 004 197 CMPH = RO : Compare {X! with 1.0 9DC( 
1A 18 0047 «198 BGEQ —GEG_10_1.0 : Branch if !X! >= 1.0 | D38/ 
0049 199 
0049 200 ; 000¢ 
O08 01; 0< ixi < 1.0 100¢ 
049 0¢ : 2151 
0049 0 
50 64FD 0049 204 MULH2 RO, ; RO/R3 = Xee2 000¢ 
50 08 50 63FD 004D 205 SUBH3 = RO, ; RO/R3 = 1.0 = Xee2 | F96( 
OOOO00CO'EF 16 0038 06 JSB ATASHSORT: -R8 + RO/R3 = HSQRT(1-X##2) 808! 
50 8E& 50 67FD 005 207 DIVH3 RO, (SP)+7 > RO/R3 = N/WSORT (1 Xee2) 
005D 08 ; Also clea ack 000¢ 
00000000'GF 17 903 08 JMP G*“MTHSHATAN_RB ; RO/R3 = HATANCX/HSQRT(1=X##2)) ; st 
006 11; 
006 12 : 1 =< tx! 000¢ 
006 13; F74( 
906 214 A5S9! 
06 15 GEQ_T0_1.0: 
OF 14 006 16 BGTR ERROR ; Branch to ERROR if !Xi > 1.0 000( 
0065 317 2F Dt 
We i : Ix! = 1.0 ii 
0065 0; poet 
50 97 AF 7DFD $68 é MOVO H_PI_OVER_2, RO ; RO/R3 = PI/2 178! 
BE 73FD O06A TSTH (SP)F ; Test the 42198 of X and clear stack 
4 18 60 4 pore Ne : prongh <4 0 
50 50 72h $F 5 MNEGH , RO ; RO/R *P1/2 D4( 
0 3 $ RETURN: RSB | FA2i 
a7 gi - x OF Al 
: < iki, error 
ge “i 
BE 73FD 74 2 ERROR: TSTH (SP)+ ; Clear stack 0001 
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Special HASIN rout MTMRIL. SREIMTHHASIN. MAR; 1 


‘> 


; Return PC from JSB routine 

; Condition value 
RO = result = reserved operand -0.0 
Goes to signal mechanism vector 


PUSHL : 
MOVZBL ; 
; (CHF $L MCH RO/R1) so error handler 


(SP) 
#MTHSK_INVARGMAT, =(SP) 
#15, at, RO 


. Can modify the result. 
CALLS oS G“*MTHS$$SIGNAL Signal error and use rors user's PC 
ependent of CALL v 


3 
4 
§ CLRQ 
’ 
¢ ae - RO pestered tran CHFSL_MCH_RO/R1 


E11 | 
int Arcsine routine -1984 01:33:34 VAX/VMS Macro v04-00 P 8 
1 8 91:32:84 ste 
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1-004 MTHSHASIND = Standard H Floating Arcsin 6=-SEP-19 MTHRTL.SRCJMTHHASIN.MAR; 1 (6). 
-SBTTL MTHSHASIND = Standard H Floating Arcsine 


p++ 

; FUNCTIONAL DESCRIPTION: 

HASIND = H floating point arcsine function 
HASIND(X) is computed as: 


If X = 0, then HASIND(X) = 0. 

If X = 1, then HASIND(X) = 90. 

If X = ={, then HASIND(X) = =90. 

If 0 < sx! <1, then HASIND(X) = ATAND‘X/SQRT(1-X##2)), 
If 1 < iXi, error. 


CALLING SEQUENCE: 
hasind.wh.v = MTHSHASIND(x.rh.r) 
-or- 
CALL MTHSHASIND(hasind.wh.r, x.rh.r) 


Because an H-floating result cannot be expressed in 64 bits, it is 

returned as the first argument, with the input parameter displaced 

te a renee argument, in accordance with the Procedure Calling 
andard. 


INPUT PARAMETERS: 


| 
| 
48 
00000004 0088 76 LONG = 4 : Define conquer multiplier 
00000008 0088 77 x = 2 * LONG ; Contents of x is the argument 


besdosdesdecdesdesdectesdesdesiectestesdesdectes]esdesteste slo sTeslesle stele sls» Bip da] 


2 Cd Cd Cd C0 09 C9 09 09 CD 09 CD CD CO CD CD OD OD 
MiFSWN (OOO NOAU EWN O ODOM EW OOONOM WO 


SNES NSP PAA AAA AAA TUT 


IMPLICIT INPUTS: none 
OUTPUT PARAMETERS: 


0088 


00000004 


hasind = 1 * LONG ; hasind is the result | 

VALUE: H floating arcsine of the argument | 
IMPLICIT OUTPUTS: none | 
COMPLETION CODES: none 
; SIDE EFFECTS: | 
; Signals: MTHS_INVARGMAT if ‘Xi > 1 with reserved operand in RO/R3 
; (copied to the signal mechanism vector CHFS$L_MCH_RO/R1 by LIBSSIGNAL). 


; Associated message is: ‘INVALID ARGUMENT’. Résulf€ is reserved eperone 
; -0.0 unless a user supplied (or any) error handler changes CHFSL_MCH_RO/R1. 


OO 0 000000900 00 00 G9 09 0D CO IN 
PWN (CO OONOUES WN OOo 


; NOTE: This procedure disables floating point underflow, enables integer 
; overflow. 


G5 Go GD > G0 Go G9 GO GD OD DD DW W DD Dw 


COOOCOCOOCOOOOOOOOOoOooOSooS 


--- 
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o—. 


«ENTRY MTHSHASIND, “M<IV, R2, R3, R4, RS, R6, R7, RB> 
Standard cal l-byoreterence apery 
: Disable DV (and FU), enable IV 
MTHSFLAG_JACKET ; Flag that this is a jacket procedure in 


MOVAB G*MTHSSJACKET_HND, (FP) 


NOUS wry 


; set handler address to jacket 
; handler 


; case of an error in routine 
; If an oe convert signal to user PC 


: and < coatene 
MOVH ax (AP) : @x (AP) 
3 ott special HASIND routine 


COOOOWMOMDOMOO@OCD =a 


Pe eeooucvVTvTl@am 2z- 


lo 

AS 

41FC : 

3 

6D O0000000'GF 9E 5 
3 

0 

0 

0 

00 


MIHSHASIND RB 
mMovO RO, @hasind(AP) ; Store result in first argument 
RET ; Return to caller 


WIAA AAN 


— OO 
MEWnr—-OOe 
@ 
“ 
wo 
wo 
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1-004 MTHSHAS DR - Special HASIND routine o-SEp= 1984 94:32:33 MTHRTL.SRCIMTHHASIN.MAR; 1 ” (7) | 

.SBTTL MTHSHASIND_RB = Special HASIND routine | 
; Special HASIND - used by the standard routine and direct JSB call. | 


loat 
ASIND_R8 
Al 17 
Al 13 
Al 1 
Al 0 3 
eA 1 ; CALLING SEQUENCE: | 
Al ¢ 3 save anything needed in RO:R8 
OA1 3 MOVH 0 : Input in RO/R3 
OA1 4 ; JSB MTHSHASIND_R8 
OA} 5 3 return with result in RO/R3 
BBP 
Al MTHSHASIND_R8:: ; Special HASIND routine 
20 8 GOA § TSTw RO r Con are X with | 
A 1 Boag 9 BEQL D_RETURN : If X = 0, return HASIND(O) = 0 
00A5 ¢ : 
BOA 7; 0< Ix 
OA5 34 ; 
OOA5 $2 
50 70FD OQOAS 6 MOVH RO, -(SP) 3 stack = RO/R3 = X 
50 8000 8F AA OOA9 $30 BICW #°%8000, RO 3 RO/R3 = {X! 
08 50 71FD OOA 38 CMPH ; Compare {Xi with 1.0 
1A 18 008 39 BGEQ  0_GEQ_T0_1.0 : Branch if !X! >= 1.0 
00B4 40 
0B4 41; 
0B4 +g 3: 0< ixi < 1.0 
0084 45 ; 
00B4 44 
50 64FD 00B4 45 MULH RO, RO 3 RO/R3 = Xe"2 
50 0 50 63FD 0088 46 SUBH RO, #1, RO ; RO/R3 = 1.0 = X#*2 
OO0O00000'EF 16 008 347 JSB MTHSHSQRT_R8 > RO/R3 = HSQRT(1-X##2) | 
50 + 8E 50 67FD O00C $05 DIVH3 RO, (SP)+, RO ; RO/R3 = ec higea ) teiitn 
00¢8 49 ; Also_clear stack 
00000000 ' GF 17 Bate $29 JMP G*MTHSHATAND_R8 3; RO/R3 = HATAND (X/HSQRT (1 Xe#2)) 
OOCE 33¢ $ 
OOCE $5: 1 =< {Xx! 
OOCE 54; 
OOCE 55 
OOCE 356 D_GEQ_T0.1.0: 
AS 14 OQOCE 57 BGTR ERROR ; Branch to ERROR if iX: > 1.0 
00D0 58 
00D0 59 ; 
it 60 ; ix! = 1.0 
0D 61 ; 
ita 6 
50 FF3B CF 7DFD 0D0 6 MOVO H_90, RO ; RO/R3 = 90 
8E 73FD 00D6 64 TSTH (SP)+ ; Test the 1395 of X and clear stack 
04 18 aoe 65 BGEQ D_RETURN 3 prongs 3 0 
50 50 72FD O0DB 366 MNEGH RO, RO : 
05 OODF 367 D_RETURN: RSB 
00E0 68 
00E0 9 


o 
© 

m 
z 
i=) 


MTHSHASIN 
Symbo! table 


The working set Limit was 750 pages 
There were 1 
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ESESISHL QUES AOE, assets 


Page 
THHASIN.MAR; 1 


PSECT No. Attributes 
») 00 ¢ QO.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
> O24. ta PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


Pewee oecoccccecccccescocs 


D_GEQ 10.1.0 OQOOOOCE R 01 
D-RETORN™ 8 bf R 3 
ERROR GR 1 
GEQ_T0_1.0 $? a 01 
MA lwo = 0 09 04 

= 
N30 860010 RT 
H_PI_OVER_2 000000 01 
L = 00000004 
MTHSSJACKET_HND teeeeree =X 01 
MTHSSSIGNAL eeereree 00 
MTHSHASIN sat it 34 RG 4 
MTHSHASIND 0000 RG 1 
MTHSHASIND_RB QOO000A1 RG 01 
MTHSHASIN 00000036 RG 4 
MTHSHATAND RB tereeene x 0 
MTHSHATAN_RB eevereee =X 00 
MTHSHSQRT RB teertere x 00 
MTHSK_INVARGMAT eeeereeee xX 00 
RETURA 00000073 R 01 

= 00000008 
PSECT name Allocation 
- «ABS. 00000000 
_MTHSCODE 000000E0 22 
Phase Page faults CPU Time 
Initialization 30 00:00:0 
Command processing 122 00:00:0 
Pass 90 00:00:0 
Symbol table sort 0 00:00:0 
Pass 2 75 00:0 8 
Symbol table output ; 00:00: 
Psect synopsis output 8 :98:8 
Cross-reference output 0 :00: 
Assembler run totals 325 0:00:0 


5419 bytes (11 pages) of virtual memory were used to buffer 
pages of symbol table space allocated to 
429 source Lines were read in Pass 1, producing 14 object records in Pass 
1 page of virtual memory was used to define 1 macro. 


MmOOCOOCOCoOoO 
se © ff # © &©& &© @ 
FOOCOowmoour°o 


Blacees Ting 
7 00:00:00.64 
6 00:00:04.29 
8 00:00:04.08 
1 BR: 8880-02 
1 88:88 :8 -45 
¢ 0: BO Os 
0 00:00: 00:00 

0:00:12.6 


he intermediate code. 
hold 21 non-local ane 0 local symbols. 


ctcacpnctbinamantecion — 
} 


MTHSHASIN 
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MTHRTL.S SRTHHASIN.MAR; 1 


! Macro Library statistics ! 


juawaunsasoennensenee woe oee + 


Macro Library name Macros defined 


“$255$DUA28: CSYSLIBISTARLET. MLB;2 0 
0 GETS were required to define 0 macros. 


BRR SE areca 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHHASIN/OBJ=OBJ$:MTHHASIN MSRC$:MTHJACKET/UPDATE=(ENHS :MTHJACKET) +MSRC 


L EQUIPMENT CORPORA 
ENTIAL. AND PROPRIET 


AH-BT13A-SE 
VAX/VMS V4.0 


| (?6 { IGITA TION 
VI ONFID ARY 


D 
C 


